home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SMMAIL.PLP < prev    next >
Text File  |  1991-08-17  |  1KB  |  40 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* Memo2mail(ONEPROC);
  3. **   複数のメモをメール発信する｡
  4. **     ONEPROC:メールするメモ番号 ｢SMML=1,2,････,No,｣
  5. */
  6. /* %Memo2mail { */
  7. /*  [ONEPROC] */
  8.  
  9.   %send1mail { [file]
  10.     type({MAIL\n});
  11.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  12.     type({COM\n});
  13.     wait(ABORTTIME,{Abort},{終了は行頭で/E）\n},);
  14.     %temp @memo(file);
  15.     %temp2 {DEL }|PLTPATH|{\}|{NEMSEND.WRK};
  16.     dispoff({Yes});command(temp2);dispoff({No});
  17.     write(PLTPATH|{\}|{NEMSEND.WRK},temp);send(PLTPATH|{\}|{NEMSEND.WRK});
  18.     dispoff({Yes});command(temp2);dispoff({No});
  19.     type({\n});type({/E\n});
  20.     wait({180},{Abort},{：},{type({2\n})});
  21.     wait({4},
  22.       {Flash;Flash;
  23.        chat({Yes});
  24.        wait({180},
  25.          {Abort},
  26.          {送信 (1:送信する　2:しない)\n：},{chat({No});type({1\n})});
  27.       },
  28.       {送信 (1:送信する　2:しない)\n：},
  29.         {case(DEBUG={Yes},{No},{type({1\n})},{Yes},{type({1\n})})});
  30.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  31.   };
  32.  
  33.   var NUMS[32];NUMS:=@body(ONEPROC,{SMML=});
  34.   loop({%temp @head(NUMS,{,});
  35.         case(temp={No},
  36.           {Yes},{im({No})},
  37.           {No},{NUMS:=@body(NUMS,{,});send1mail(temp);im({Yes})}
  38.         )})
  39. /* }; */
  40.